How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/vikingw.dir/01648_Script_Home

Text File | 1995-09-12 | 9KB | 273 lines

global gbeenclicked, gQuest, gLeftHouseOpen, gRightHouseOpen

on VHomeRolloversLeft
  set gbeenclicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(13) then
      repeat while rollover(13)
        ArrowCursor
        set the locH of sprite 14 to 457
        set the locV of sprite 14 to 338
        updatestage
      end repeat
      set the locH of sprite 14 to 999
      updatestage
    else
      if rollover(15) then
        repeat while rollover(15)
          ArrowCursor
          resetRightHouse
          set the locH of sprite 16 to 388
          set the locV of sprite 16 to 127
          updatestage
        end repeat
        set the locH of sprite 16 to 999
        updatestage
      else
        if rollover(17) then
          repeat while rollover(17)
            ArrowCursor
            set the locH of sprite 18 to 492
            set the locV of sprite 18 to 261
            updatestage
          end repeat
          set the locH of sprite 18 to 999
          updatestage
        else
          if rollover(41) then
            HandCursor
          else
            if rollover(42) then
              HandCursor
            else
              if the mousecast = the castnum of sprite 8 then
                repeat while the mousecast = the castnum of sprite 8
                  VikingCursor
                  if the mousedown then
                    puppetsprite 8, true
                    Puppetsound "SV220101.AIF"
                    updatestage
                    wait .5
                    set the locH of sprite 8 to -400
                    updatestage
                    set gLeftHouseOpen = 1
                  end if
                end repeat
              else
                if rollover(11) then
                  if gLeftHouseOpen = 1 then
                    repeat while rollover(11)
                      ArrowCursor
                      set the locH of sprite 12 to 245
                      set the locV of sprite 12 to 374
                      updatestage
                    end repeat
                    set the locH of sprite 12 to 999
                    updatestage
                  end if
                else
                  if rollover(19) then
                    if gLeftHouseOpen = 1 then
                      repeat while rollover(19)
                        ArrowCursor
                        set the locH of sprite 20 to 225
                        set the locV of sprite 20 to 313
                        updatestage
                      end repeat
                      set the locH of sprite 20 to 999
                      updatestage
                    end if
                  else
                    if rollover(21) then
                      if gLeftHouseOpen = 1 then
                        repeat while rollover(21)
                          ArrowCursor
                          set the locH of sprite 22 to 321
                          set the locV of sprite 22 to 358
                          updatestage
                        end repeat
                        set the locH of sprite 22 to 999
                        updatestage
                      end if
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on VHomeRolloversRight
  set gbeenclicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      ArrowCursor
      repeat while rollover(6)
        resetRightHouse
        set the locH of sprite 27 to 457
        set the locV of sprite 27 to 177
        updatestage
      end repeat
      set the locH of sprite 27 to 999
      updatestage
    else
      if rollover(48) then
        ArrowCursor
        repeat while rollover(48)
          resetRightHouse
          set the locH of sprite 28 to 451
          set the locV of sprite 28 to 234
          updatestage
        end repeat
        set the locH of sprite 28 to 999
        updatestage
      else
        if rollover(9) then
          ArrowCursor
          repeat while rollover(9)
            resetRightHouse
            set the locH of sprite 39 to 451
            set the locV of sprite 39 to 284
            updatestage
          end repeat
          set the locH of sprite 39 to 999
          updatestage
        else
          if rollover(10) then
            ArrowCursor
            repeat while rollover(10)
              set the locH of sprite 11 to 277
              set the locV of sprite 11 to 382
              updatestage
            end repeat
            set the locH of sprite 11 to 999
            updatestage
          else
            if rollover(12) then
              ArrowCursor
              repeat while rollover(12)
                set the locH of sprite 13 to 397
                set the locV of sprite 13 to 373
                updatestage
              end repeat
              set the locH of sprite 13 to 999
              updatestage
            else
              ArrowCursor
              if rollover(14) then
                repeat while rollover(14)
                  resetRightHouse
                  set the locH of sprite 15 to 550
                  set the locV of sprite 15 to 308
                  updatestage
                end repeat
                set the locH of sprite 15 to 999
                updatestage
              else
                if rollover(17) then
                  ArrowCursor
                  repeat while rollover(17)
                    set the locH of sprite 18 to 339
                    set the locV of sprite 18 to 317
                    updatestage
                  end repeat
                  set the locH of sprite 18 to 999
                  updatestage
                else
                  if rollover(21) then
                    ArrowCursor
                    repeat while rollover(21)
                      set the locH of sprite 22 to 457
                      set the locV of sprite 22 to 338
                      updatestage
                    end repeat
                    set the locH of sprite 22 to 999
                    updatestage
                  else
                    if the mousecast = the castnum of sprite 7 then
                      repeat while the mousecast = the castnum of sprite 7
                        VikingCursor
                        if the mousedown then
                          puppetsprite 7, true
                          PUPPETSOUND "SV220101.AIF"
                          updatestage
                          wait .5
                          set the locH of sprite 7 to -400
                          updatestage
                          set gRightHouseOpen = 1
                        end if
                      end repeat
                      ArrowCursor
                    else
                      if rollover(20) then
                        if gRightHouseOpen = 1 then
                          ArrowCursor
                          repeat while rollover(20)
                            set the locH of sprite 40 to 468
                            set the locV of sprite 40 to 167
                            updatestage
                          end repeat
                          set the locH of sprite 40 to 999
                          updatestage
                        end if
                      else
                        if rollover(16) then
                          ArrowCursor
                          if gRightHouseOpen = 1 then
                            repeat while rollover(16)
                              set the locH of sprite 43 to 535
                              set the locV of sprite 43 to 194
                              updatestage
                            end repeat
                            set the locH of sprite 43 to 999
                            updatestage
                          end if
                        else
                          ArrowCursor
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end


on resetRightHouse
  set the locH of sprite 7 to 401
  set the locV of sprite 7 to 199
  set gRightHouseOpen = 0
  set the locH of sprite 8 to 155
  set the locV of sprite 8 to 320
  set gLeftHouseOpen = 0
  puppetsprite 8, false
  puppetsprite 7, false
  updatestage
end

on resetLeftHouse
  set the locH of sprite 8 to 155
  set the locV of sprite 8 to 320
  set gLeftHouseOpen = 0
  set the locH of sprite 7 to 401
  set the locV of sprite 7 to 199
  set gRightHouseOpen = 0
  puppetsprite 8, false
  puppetsprite 7, false
  updatestage
end